DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**FILE**1D**EXPRESS 


"wn own nn 
nn nw “wn 
nw nn “wn 
nw nw wn 
unm nw “wn 
mn nn nn 
MNWw “nn 
MNWMmn mn 
mown “nw n”n 
nw Mmmve 
nw nn nn 
own “nw “nn 
mn nn nn 
nn nw nw 
mw nn nn 
mn nn ww 
NNMWM mn 
MMMM nn 
eSiTe) uu 
wu eee) 
usu udu Abs 
usu iverye) usu 
uu wus tasks 
eres wu usu 
eaaTes wus Abbe 


ecacac fo ate 
aeacoce [eo aie 
ca aa ca 
cc fo died ca 
ca ecccc 
ca eccae 
ca ca 
ca ao a 
aQaaaacacacacacac 
@Qaanaacacacacaca 
aaaa 
aaaa 
aa aa 
aa ao. 
aa aa 
aa aa 
aa aa 
aa aa 
aaqaaaaaaaaaaadaa 
aaaaqaaqgaaqdaaaadaa 
<< << 
<< OK OK << 
<< <>< 
<>< wo 
<>< 
. 2 
<>< awa’ 
> 3 
<< << KC OK 
<< OK OK << OC 
eerye) Wut 
eure] sud 
kad Ld wu Aad Lk 
wud wus usu 
das tad US uw 
usu verve) uu 
wu wild Us 


[ve ee eseesvesuClvclvelveluulvelvenveleul 
a 


LLLLLLLLLL 
LLLLLLLLLL 
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~-TITLE EXPRESS = EXPRESSION ANALYSIS 
- IDENT FYOus000" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


« . 
® ® 
® ® 
® 7 
® ® 
+ THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED 
* IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
® STON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY OTHER 
‘ g THEREOF NAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
. PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S, HEREBY 
* TRANSFERRED. * 
® w 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* CORPORATION. ’ 
® a 
s * 
* & 
® ca 
os ® 
*® ® 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY. DIGITAL. 


TTT IIIT IT IIIT TIT T TTA i titi iii ii iiii iii iiiiiiiiiiiiiiiiiiitiiiiiiiiiis, 
EXPRESSION ANALYSIS 

D. N. CUTLER 9-MAY-77 

MODIFIED BY: 


v03-003 PCG0007 Peter George 27-Jul-1983 
Add dummy LIBSSCOPY_DXDX routine. 


v03-002 PCG0006 Peter George 12-Jul-1983 
Fix bug in buffer overflow calculation. 


v03-001 PCG0005S Peter George 18-Nov-1982 
Upcase symbol names when evaluating FSVERIFY arguments 
in a comment. 


SOOoCooooooooooooooooooooooooooooooooooooooooo 
SOSOSCSOSCSOSOOSOOSOSOSOSOSSOSOSOSOSOSOSOSOSOSOSOOSOSOSOSOSOSOSOSOSOSOOSOOOSOo 
OOOO OCOCOSCSCOSOOOSCSOOSOOSOOSOSOSOSOSOSOOSOOOSOOSOOOOOOOOOOOOoOSoSO 
SOOCOCOCOOCOOOSOSSGSOSOSSCCSCOCOOOSOOOSOO OOOO OOOSOOOOOOOoOoOo 
FWRI 9 OD NOUS WIN $9 OD NAU EWN 0 OONOAOU EW "OO ONOU SEWN 


PEK FPA AAAI NIGIPIPONPINININPYUPONINI NY 2 PO ss ws es es 


| 1 
EXPRES - EXPRESSION ANALYSIS ' 


: LOCAL SYMBOLS 
: DEFINE STACK ITEM OFFSETS 


SOEFINI STK 


STK_W_TYPE -BLKW :STACK 1 
SDEF STK WTPREC SOPERATOR PRECEDENCE 
SDEF § STKWTSIZE .BLKW [SIZE OF OPERAND VALUE IN BYTES 
SDEF § STKTLTADOR “BLKL 1 TADDRESS OF OPERAND VALUE 
SDEF § STKTKTLENGTH [LENGTH OF STACK ITEM 


SDEFEND STK 


LOCAL DATA 
OPERATOR TABLE 


15-SEP-1984 23:46:4 AX/VMS Macro v04-00 Page 
/ V04~ Fat et 33:28:44 YOCL SRCIEXPRESS MAR: 1 ° 3) 
| 4 H 
§ i ; MACRO LIBRARY CALLS 
3 0 PRCDEF ;DEFINE PROCESS WORK AREA 
8 1 WRKDEF sDEF IME COMMAND WORK AREA 
| 38 ¢ SCLIMSGDEF sDEFiNE ERROR/STATUS CODES 
$00 4; 
4 5 ; LOCAL MACROS 
| 4h ; 3; GENERATE OPERATOR/OPERAND TABLE AND SYMBCIL NAMES 
0 i}: 
| 0000 0 «MACRO GENOP NAME, INDEX, TYPE,PREC,CHAR,?L1,?L2,7L3,2L4 
900 1 OPI_K_"NAME=INDEX 
000 § ~1F IDN <TYPE>,<OPERATOR> 
0000 OPP_K_"NAME=PREC 
0000 4 IF DIF <NAME>,<SOS> 
0000 5 IF DIF <NAME>,<EOS> 
0000 $ IF DIF <NAME>,<STORE> 
0000 Li: -BYTE L4=-L1 
0000 8 -BYTE L3-L2 
0000 9 IF NB <CHAR> 
0000 0 L2: eASCII \CHAR\ 
0000 1 LFF 
0000 ¢ L2: ASCII = /NARE/ 
0000 -ENDC 
0000 4.3: -BYTE OPP_K_'NAME 
0000 5 14: .BYTE OPIK7 "NAME 
0000 eENDC 
8008 .ENDC 
000 -ENDC 
0000 -ENDC 
8208 ~-ENDM GENOP 
00 
0000 
0000 
$008 
000 
0000 
44 
4 
$00 
0 
0 
0 
0 


OOOOOO0O0 OOOO O09 0909 69 69 69 69 09 09 09 SI NII NIN NSN NIP PAA AAA AAA MII 


MOON NES WIN “OOO NAULSWN "SO OONO 
tad 
—] 
m 
~ 


SOooooooooooo 


Soooooooo 
SOOCCOCs & ron 


as 


SS 
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0000000A 
0000000A 


00000034 


00 


00000084 
0000016C 


0000001 
00002 


3 
sie 


Ooo 
pee ww wee wo fololololololololololololo) 
DUMMIES SW WWII | | “COCO OOCOSoo 


Spo BOD HLM ONIN PPINYG WvUIN Co— SB FW NOOOCOO 


SoooooooooooooooooooS 


Sooooo 
COOoOoooooco 


sss 


: S&C Co Od 0d OD Cd Cd Od OD Cd Od 0D GD GD CD CD CD CD NY NY 
=O FMI OO — tt ts OOOO ON 


NOPORINORY 3 2 OOO 


FUN) OOONOULS WN —OOCe 


LT ee eee eee ee eS 


SPUPUPUPUSPUSIPISIOII EBS BS BB BE EB EWAN III II inononononn 


DOONAN SO OD NOME WIN (OO DNOUE WN" OVOOnNw 


GENOP SOS. 30 OPERATOR, 0 
GENOP 0S, 32,OPERATOR 
GENOP LPAREN, 34, OPERATOR, 
GENOP RPAREN, 6, OPERATOR 


"RSEP=1986 93:05:34 


-PSECT DCLSZCODE ,BYTE,RD,NOWRT 


AX/VMS Macro V04-00 
DCL.SRCJEXPRESS.MAR; 1 


sSTART OF STATEMENT 
STATEMENT 


sEND OF N 
o<(> LEFT PARENTHESIS 
2S)> ;RIGHT PARENTHESIS 

RE RESULT 


Page dy 


GENOP GPERATOR.O sSTORE RES 

GENOP AND,0,OPERATOR, ‘BOOLEAN AND 

GENOP NOT.2.OPERATOR.6 ‘BOOLEAN NOT 

GENOP OR,4, OPERATOR, 4 :BOOLEAN OR 

GENOP ADB .8 OPERATOR, .<+> — SINTEGER ADD 

GENOP SUB.8.OPERATOR.8,.<->  : INTEGER SUBTRACT 

GENOP MUL 10 OPERATOR, 9, <#> SINTEGER MULTIPLY 

GENOP DIV.12,OPERATOR.9.</> INTEGER DIVIDE 

GENOP NEG,14,SPECIAL S INTEGER NEGATE 

GENOP POS.16,SPECIAL S INTEGER NOOP 
OPP_K_NEG=OPP_K_DIV+1 TONE GREATER THAN HIGEST ARITHMETIC 
OPPK~POS=OPP~K~DIV+1 [ONE GREATER THAN HIGEST ARITHMETIC 

GENOP™ ~EQ,18,OPERATOR,7 SARITHMETIC EQUAL 

GENOP GE, Q-OPERATOR. 7 TARITHMETIC GREATER OR EQUAL 

GENOP  GT.22,OPERATOR.7 SARITHMETIC GREATER 

GENOP LE.24.OPERATOR.7 SARITHMETIC LESS OR EQUAL 

GENOP LT, 6 -OPERATOR 7 SARITHMETIC LESS 

GENOP NE.28,OPERATOR.7 SARITHMETIC NOT EQUAL 

GENO E0S.40 OPERATOR. 7 [STRING EQUAL 

GENOP GES.42,OPERATOR,7 ?STRING GREATER OR EQUAL 

GENOP GTS.44,OPERATOR.7 ‘STRING GREATER 

GENO LES.46 OPERATOR. 7 SSTRING LESS OR EQUAL 

GENOP LTS.48,OPERATOR.7 :STRING LESS 

GENOP NES. 50, OPERATOR, :STRING NOT EQUAL 
OPI_K_OPERAND = 5 [LOWEST OPERAND INDEX 

GENOP STRING,52,O0PERAND SUNEVALUATED CHARACTER STRING OPERAND 

GENOP STACK, 54,0PERAND SEVALUATED ON-STACK OPERAND 

.BYTE 0 [TABLE TERMINATOR BYTE 
> SIZE OF EXPRESSION ANALYSIS STACK 
PARSESTKSIZ = 132 sSIZE OF PARSE STACK 
TRIADSTKSIZ = 364 ‘SIZE OF TRIAD STACK 


$ LOCAL VARIABLES ON STACK 


SDEF INI 
NESTLVL: -BLKB 1 
REQMODE : -BLKB 1 
CURMODE : -BLKB 1 

-BLKB 1 
RESULT: -BLKQ 1 
LOCALSIZ: 

SDEFEND 


; CURRENT LEVEL OF NESTING 
: eee inee EXPRESSION MODE 

(Q=CAN BE ANY MODE) 
CURRENT EXPRESSION MODE 
; EXPRESSION RESULT 


i. % 
= EXPRESSION ANALYSIS i oe ise 
8 1 160; 
; ‘TRUE’ AND 'FALSE* VALUES 
1 163° 
55 52 54 1 184 TRUE: .ASCII ‘TRUE’ 
45 3 e6 3 46 5 165 FALSE: .ASCII ‘FALSE’ 
59 74 54 06 4 196 TRUSYM: .ASCII ‘TtYy' 


t NOTE-ORDER IS ASSUMED ELSEWHERE 


be 93:08:57 


10-688 


= EXPRE 
DUMMY L 


18d8t 


ot 
SCOPY_D 


“et 


SiSeourine —«TURSRERSTBRG SEEGER. Y 


~SBTTL DUMMY LIBSSCOPY_DXDX ROUTINE 
-ENTRY LIBSSCOPY_DXDX,0 
RET 


AX/VMS 
DCL.SRC 


ie 


cro 
XPRE 


04 
S. 


-00 
MAR; 1 


re dy 
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.SBTTL EVALUATE BINARY EXPRESSION | 
DCLSBINEXPR = EVALUATE BINARY EXPRESSION | 
THIS ROUTINE IS CALLED TO ANALYZE AN EXPRESSION AND RETURN AN ARITHMETIC RESULT. 


> INPUTS: | 

: R10 = BASE ADDRESS OF COMMAND WORK AREA. | 

: Ril = BASE ADDRESS OF PROCESS WORK AREA. | 

: RO = STATUS | 

: R1 = BINARY LONGWORD VALUE | 

: R2,R3 DESTROYED. | 

= | 

DCLSBINEXPR: : 

10 BSBB. —« DCLSEXPRESS sEVALUATE EXPRESSION | 
Es BLBS RO,DCL$CVT_BINARY ‘IF OK, CONVERT RESULT TO BINARY | 
| 
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WOOOOOOOVOOVOOVOOOOODOOOOOOO mm 
OW Ss Ss Ss Ss SS Ss 
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EXPRESS = EXPRESSION ANALYSIS 15-SEP-1984 23:4 AX/VMS Macro V04-00 Page 7. 
v04-000 CONVERT STRING OPERAND TO BINARY 46-SEP-1984 $3: 28; 4¢ LOCL SRCIEXPRESS MAR: 1 ’ (5) 
097 198 -SBTTL CONVERT STRING OPERAND TO BINARY 
Bae 89 3 ; DCLSCVT_BINARY = CONVERT STRING OPERAND TO BINARY 
097 4 3 THIS ROUTINE IS CALLED TO CONVERT A EXPRESSION RESULT TO BINARY. 
bas 87 ; IF THE RESULT IS ALREADY BINARY, THEN THAT VALUE IS RETURNED. 
0097 05 ; INPUTS: | 
0097 06 ; | 
0097 07 ; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
0037 8 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
itt 10 ; R1/R2 = QUADWORD DESCRIBING EXPRESSION VALUE : | 
0097 11; IF Rg NONZERO, R1/R R2 A RE A STRING DESCRIPTOR 
0097 if ; IF R2 ZERO, Ri IS A BINARY LONGWORD VALUE | 
0097 214 ; OUTPUTS: 
0097 15; 
0097 16 ; RO = STATUS 
0097 17; R1 = BINARY LONGWORD VALUE 
0097 18; R2 = 0 (TO INDICATE RESULT IS BINARY) | 
0097 219 : 
0097 220; R3 DESTROYED. 
0097 221 :- 
0097 $56 
0097 223 DCLSCVT_BINARY:: 
52 05 0097 33h TSTL R :STRING OR BINARY VALUE? 
1F 13 0099 25 BEQL 80$ [OK IF BINARY VALUE 
52 DD 0098 336 PUSHL R2 iSAVE STARTING ADDRESS OF STRING 
52 51 7D 009D 27 ova 1,R2 :COPY STRING DESCRIPTOR 
51 OOAE CB 9A OOAD 228 MOVZBL PRC _B DEFRADIX(RI1), R1 SET RADIX FOR CONVERSION 
FF58° 30 OOAS 329 BSBW DCL SC BVA NVERT TO BINARY 
04 BA O0A8 230 POPR RESTORE STARTING ADDRESS OF STRING 
OE 13 OOAA 33] BEQL B08" sIF SUCCESSFUL, EXIT WITH R1 
OOAC $38 ; INVALID CHARACTER IN ST RING-CHECK FOR BEGINNING LETTER ‘‘TtYy’’ 
OOAC 334 TS Me es "vy" OR "'y’’, THEN RETURN 1, ELSE RETURN 0. 
D9 AF 04 62 3A OOAC 236 LOCC (R2),#4, TRUSYM CHECK FOR TRUE CHARACTERS 
05 +3 00B1 237 BEQL 70$ sBRANCH IF NONE FOUND 
51 01 00 0083 238 MOVL #1,R1 sSET RESULT TO TRUE 
02 11 0086 239 BRB 80$ :SK 
51 04 00B8 40 70$: CLRL R1 :SET RESULT TO FALSE 
50 01 DO OOBA 41 80$: MOVL #1,R0 s SUCCESSFUL 
2 D4 D 4¢ CLRL R2 INDICATE RESULT IS BINARY 
05 O0BF 4 RSB 


—_—_——_————— 
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V04-000 EXPRESSION ANALYSIS 4-SEP=1984 23:40:31 CDCL.SR cj? PRESS. MAR; 1 
¢0 45 : .SBTTL EXPRESSION ANALYSIS 
a8 ‘3 t DCLSEXPRESS = EXPRESSION ANALYSIS 
00¢ 49 : THIS ROUTINE IS CALLED TO ANALYZE AN EXPRESSION AND RETURN A BINARY 
Boe a0 3 OR CHARACTER STRING RESULTANT VALUE. 
b0¢0 56 i : INPUTS: 
00CO 254 R10 = BASE ADDRESS OF COMMAND WORK AREA. 
900 55 i R11 = BASE ADDRESS OF PROCESS WORK AREA. 
doco 3? | : OUTPUTS: 
00C0 259 RO = STATUS 
00C0 260 ; RI /R2 MQUAD ORD DESCRIBING EXPRESSION VALUE :. 
00CO 261 ; IF ae NONZERU, R1/R2 ARE A STRING DESCRIPTOR 
90c0 366 ; IF R2 ZERO, RI IS A BINARY LONGWORD VALUE 
00CO 264 R3 DESTROYED. 
Bh Be 
00C0 267 DCLSEXPRESS ZANALYZE EXPRESSION 
51 01 90 O00CO 268 #PRC_K_DEC,R1 :SET TO DEFAULT DECIMAL 
00C3 269 DCLSEXPRADIX: SALTERNATE ENTRY-RADIX stt OP ERNALLY 
1370 8F BB 00C3 370 PUSHR #*M<R4,RS,R6 sh7,R8 R9,AP> ;SAVE REGISTERS 
F486 CA DD O0C? 271 PUSHL WRK K_L_EXPANDPTR(R10) : SAVE CURRENT PARSE POSITION 
OOAE CB. 51 =—«90s«00CB 372 MOVB 1,PRC_B DEFRADINGRI1) THE RADIX FOR LATER 
FO AA 20s AB 9000 a3 BSW fuk FR noSTAR, URK-W FLAGS(AIO) ;SET ASTERISK TERMINATOR FLAG 
SE OC C2 00D4 278 SUBL §_ #LOCALS12,SP SALLOCATE SCRATCH SPACE ON STACK 
57 SE 00 0007 276 MOVL [POINT TO SCRATCH SPA 
67 94 OODA 277 CLRB NESTLVL (R7) SINITIALIZE PARENTHESIS NESTING LEVEL 
01a7 53 90 oop 378 MOVB REQMODE (R7) :SET EXPECTED EXPRESSION MODE 
58 SE 00 OOE0 80 MOVL -SET ADDRESS OF PARSE STACK 
SE FEIO CE 9E OOF 81 MOVAB SCERTADSTKSIZ4PARSESTKSIZ>(5P) SP" sALLOCATE SPACE FOR STACKS 
3 : ty its He MOVE POPP. K_S0S>@16+0PI_K _s08 etR ae > IN ADDRESS OF TRIAD STACK ‘ 
78 3 7D OEE 84 MOVO  (RB),=(RB) SUPL ICATE FIRST ITEM FOR ERROR CHECK 
OOF 1 6; 
OOF 1 Ha ; PARSE NEXT ITEM 
SOFT (588 | 
FFOC' 30 Sort 90 10$ BSBW © DCLSSETCHAR ;PEEK AT NEXT CHARACTER IN INPUT BUFFER 
50 20 91 OOF4 291 CMPB Os #*A/ /,RO :BLANK? 
03 1 0F7 3¢ BNEQ 208 [IF NEQ NO 
FFO4" F929 BSBW DCLSMOVCHAR [MOVE CHARACTER TO COMMAND BUFFER 
FFOI" %0 OFC 94 20$ BSBW DCLSMARK [MARK CURRENT PARSE P 
FEFE' FF 295 BSBW DCLSSETCHAR SPEEK AT NEXT CHARACTER IN INPUT BUFFER 
50 ef 31 192 9 CMPB#*A/./, ; OPERATOR? 
1 13 19 9 BEQL 258 NEQ NO 
FER6' 30 z 3 BsBM DCL SGETOKEN GET NEXT TOKEN FROM INPUT BUFFER 
4 68 61 010c 300 CMPW TK_W_TYPE(R8) ,#OPI_K _opERAND + STOS AN OPERAND? 
’ 0— 19 o19¢ 01 BLSS AS sBR IF OPERATOR IS TOP 


| 
| 


dD 2 
EXPRESS = EXPRESSION ANALYSIS 15=SEP=1984 23:46:42 VAX/VMS Macro V04-00 P 9 
04-000 EXPRESSION ANALYSI§ arSETSRS S28i8¢ HNECMES Gece yosnoe , «= Page 9, 
51 04 D1 g cmpL #4,R1 {POSSIBLY * THEN" KEY WORD? 
62 4E454854 4 BF Of 4 CMPL = #*A/THEN/, (R2) ;'THEN' KEYWORD? 
3.Ci«CIS BEQL 1308 SIF SO, TERMINATE EXPRESSION PARSE 
: PARSE OPERAND TOKEN 
015A 30 80$:  BSBW  PARSE_OPERAND :PARSE THE OPERAND 
: (RESULTS MAY BE PLACED ON STACK) 
1450 €9 BLBC RQ 35$ TEXIT IF ERROR DETECTED 
00A6 = 31 BRw 63 ‘STACK THE OPERAND PARAMETERS 


: PARSE .XX. OPERATORS 


FEDS’ 30 25$: BSBW DCLSMOVBTOKN :MOVE TERMINATOR AND GET NEXT BLANK TOKEN 
50 H 1 CMPB gl ./ RO iTE ERMINATOR PERIOD? 

FECD" 30 BSBW DCLSMOVCHAR ‘hove TERMINATOR TO EXPANSION BUFFER 

0114 %30 FIND OPERATOR [SEARCH OPERATOR TABL 

2a 50 &8 RO, 50$ [IF FOUND, PROCESS OPERATOR 

O2AA 31 Exit TEXIT WITH ERROR 


PARSE OPERATOR CHARACTER 
TERMINATE EXPRESSION IF END-OF-LINE OR RIGHT PAREN W/O CORRESP. LEFT 


52 F486 gf 40$: MOVL WRK L _EXPANDPTR(R10),R2 ;SET at oy 5 5oF START OF SYMBOL 
29 0 RO,#*R')' RIGHT PAREN? 

; BRANCH NOT 

TSTB NESTLVL(R7) 1S THER 0 


CH E 
OUND, PROCESS THE OPERATOR 
MOST RECENT MOVCHAR 


~ 
m 
bs] 
we 
WMTW ww O- OF 
CSWQOOWOMUIN—O 


04 IF 
67 E A CORRESPONDING LEFT PAREN? 
11 BLEQ :I1F NO LEFT PAREN, TERMINATE EXPRESSION 
45$ BSBW DCLSMOVCHAR [MOVE TERMINATOR fO EXF.'*SION BUFFER 
o¢ BEQL ©: 1308 [IF EQL END OF LINE 
51 1 MOVL #1,R1 :SET LENGTH OF STRING 
OOF 5 BSBW = FIND OPERATOR : SEAR OPERATOR TABL 
sBACKUP 


BSBW © DCLSBACKUPMOVE 


MARK END OF EXPRESSION 


a 54 ste VALUE 
OPERATOR INDEX 
RIAD 


51 1 QA 130$: ort bg #OPP_K_EOS,R1 :SET 
53 0 9A OVZBL #OPI-K~E0S,R3 7 SET 
11 BRB :FOR STACK 


1408" ~ 


t PROCESS OPERATOR 
: IF LEFT PARENTHESIS, INCREMENT THE NESTING LEVEL AND MAKE SURE 
+ AN OPERATOR PRECEEDS IT. 


AWA AFD DW WD WD OVNI GS FOX LH MOO OOOOODAWOM DW OOWOOOUNINYIT HHH HNAS— OW 


PDR. DLADXRD MADAM B BB EE EIA AIA IVA AIA AI PPP PIPININNINDDN 2 9 OS SY 


mk a a te a a a a 4s 8 a — os = “a as a 1 ss a 1 a ts tt wm 


SOOOCOOCOOSOOOOSOOOSOCOCOOOOOCOOOOCOSOOSOCSSOOCOCOOOCOOCOOCOOOCOOOOOOOOOOOOO 


PAAR AI ES BEB BEB BAA AAAI AIA RPONOPORIPURUPUI OOOO 


CONIA ALE WI @ O ODA EWN 9 OD NAME WN 9 ODNOAOU EWN OC OONOU EWN OOM 
w w 
ww & 
ww # 
oDowoow 
Dr-wnws 
<coouwm 
YEco 
Ee 


ree Pr ake ok PES Sa Att ee thio inter ines " 
| E 2 
EXPRES = EXPRESSION ANALYSIS 15-SEP=1984 23:46:4 AX/VMS Macro Vv04-00 Page 10 
“VO6- EXPRESSION ANALYSIS - oats 7 33:28:44 DCL.SRCJEX PRES S.MAR;1 ° (6) | 
163 35 | | 
53 2 di 016 61 50S: CMPL goP1_k — R3 ater PARENTHESIS? | 
a 6 196 86 BNEQ 53$ £Q 
67 96 016 6 INCB NESTLV LCR NCR EMENT PAREN NESTING LEVEL 
34 8 BI 1A 64 cel ! ros ee tee), #OPI_K _ovéaat -TOP OF STACK OPERAND? 
00BB S331 16f 66 BRW 250$ SREPORT EXPRESSION SYNTAX ERROR 
17 68 ; 
17 $9 3; CHECK FOR LEGITIMATE UNARY OPERATORS. CONVERT PLUS AND MINUS TO INTEGER 
if 4 3; NOOP AND NEGATE. PLACE OPERATOR ON STACK. 
017 2 
34 68 B81 017 ie 53$: CMPW stk W_TYPE(R8),#OPI_K_OPERAND  ;TOS AN OPERATOR? 
ge 18 017 74 BGEQ 4 y1F NO 
53 6 B61 017 75 CMPw #OP 1. K_ADD,.R3 i THIS A UNARY PLUS? 
08 13 giz 6 BNEQ 57$ :1F NEQ NO, SKIP TO NEXT 
53 10 8B 17 7 MOVW #OPI_K_POS,R3 ; CONVERT THIS TO INTEGER NOOP 
51 OA 860 O17F 78 MOVW sore K~POS.R1 
4A 11 0182 79 BRB 17087 66° STACK THIS 
53 08 Bi 0184 80 57$: CMPW worl. K_SUB,R3 THIS A UNARY MINUS? 
08 12 187 8 BNEQ 638 SIF NEQ 
53 O& 60 0189 é MOVW #OP1_K_NEG, RS SCONVERT THIS TO NEGATE 
51 A BO 018C MOVW #OPP"K-NEG,R1 ait 
D 11 O18F 4 Bea 17087 GO STACK THIS 
53 02 B1 0191 3° 638: CMPw #OP1_K_NOT,R3 yNOT LPAREN ADD OR SUB. ONLY LEGAL 
13 0194 6 BEQL 70$ F TACK OPERATOR 
0094 31 0196 387 BRW 2508 :60 Report SYNTAX ERROR 
6199-389 
O13 30 3 COMPARE OPERATOR PRECEDENCE VALUE WITH OPERATOR IN NEXT TO LAST ITEM ON STACK 
199 392° 
34 O08 AB Bi o138 38 140$:  CMPW STK_W_TYPE*STK_K_LENGTH(R8) ,#OPI_K_OPERAND ;PREVIOUS ITEM OPERATOR? 
06 18 0190 94 BGEQ 150 1 LEQ 
51 OA A 8 19f 99 CRP Siku =-PREC#STK_K_LENGTH(RB) , RI is ;STACK OPERATOR HIGHER PRECEDENCE? 
53 34 D1 1A3 97 150$:  CMPL #OP1_K_RPAREN,R3 s CURRENT "OPERATOR RIGHT PARENTHESIS? 
1F 2 1A8 98 BNEQ 1 F NEQ NO 
67 9 1AA 99 DECB NESTLVL(R R7) > DECREMENT PAREN WESTING LEVEL 
08 As) «=(02~SséiB O1ac 400 CMPW 4 K_NOT,STK_W_ TYPE+STk. K_LENGTH(R8) ;OPERATOR BOOLEAN NOT? 
2D 13 0180 401 BEQL : 0 :1F EQL YE 
08 As of 81 1B2 408 CMPW 14 & K_NEG.STK_W_TYPE*STK_K_LENGTH(R8) ;OPERATOR NEGATE? 
3 186 4 BEQL s1F EQL 
08 AB) «610~=CoBCé#12BB 404 CMPW r) 4 K_POS,STK_W_TYPE+STK_K_LENGTH(R8) ‘OPERATOR INTEGER NOOP? 
4 13 01BC 405 BEQL -1F EQL YES 
08 A8 2e 8} 185 40 cney #OP1_K_LPAREN,STK_W _TVPESSTE K LENGTH (RBS OPERATOR LEFT PAREN? 
68 3 4} cg 408 nova in , (RB) REMOVE LEFT PARENTHESIS FROM STACK 
53 20 v1 01C9 410 160$: CMPL s0Pt K_EOS,R3 7END OF STATEMENT OPERATOR? 
69 13 O1CC 41 BEQL s1F EQL YES 
1CE ie 
1cE «0413; 
Ice ah ; STACK ITEM ONTO INTERMEDIATE PARSE STACK 
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ALYSIS 15-SEP-1984 246: 
ANALYSIS rat et 83:28:39 f 
1708: MOVL ath 
MOVW R1,-(R8) : 
MOV R35,-(R8) : 
rh, He ita 
180$: BRW 0$ : 


: UNSTACK TRIAD FROM PARSE STACK 


190$: PUSHR #*M<R1 


Sk tt ket ek ek ek ek ek el ek ek ehhh eek ek ke 


FP PWWWIWI I arnononorononononuny = 


BLSS 
MOVa (RB)+.R2 :REMO 
CMPW =: #OPI_K_NOT,R2 B00 
BEQL 2208 
BGEQ 108 ~ SIF Y 
CMPY =: #OP1_K_NEG,R2 [OPERATOR UNARY MINUS? 
BEQL 220$ z1F EQL Y 
CMP HOPI _K_POS.R2 [OPERATOR INTEGER NOOP? 
BNEQ 3558 [IF NEQ NO 
44g 3108: mMOVa = (RB) +, RO SREMOVE LEFT HAND OPE 
443 220$: MOVL R9,-(RB) : C 
44s MOVZBL #OPI_K_STACK,-(R8) [PUSH OPERAND INDEX VALU 
445 CMPL 9,R8 
44 BGTRU 245$ SIF GT 
44 MOV R4,(R9)¢ 
448 MOVZWL RZ, (R9)* 
44 mOva *(R9)¢+ : 
450 2308: POPR #*A<R1,R3> sRETRIEVE OPE 
451 BRW 1408 ; 
£3 
434 > EXPRESION TOO COMPLEX 
4 e 
a3 3458: ADDL #8,SP 
458 2408: STATUS COMPLY [SET COMPLEX 
45 BRB 60$ 3 
rh 
46¢ : EXPRESSION SYNTAX ERROR 
4 * 
465 558: ADDL  -#8,SP : 
466 Os: STATUS EXPSYN : 
46 60$: BRW EXIT tA 


469 ; 
oo ; END OF STATEMENT = CHECK FOR VALID PARSE 
472 ° 


AX/VMS Macro v04-00 
DCL. SRCIJEXPRESS.MAR;1 


sSTACK NEW ITEM 


STACK OVERFLOW? 
QU YES 


R3> :SAVE OPERATOR PARAMETERS 
CMPW Tk W_fYPE(RS) .#OPI_KOPERAND  ; TOP ITEM ON STACK OPERAND? 


MOVQ (RB) +,R4 ;REMOVE RIGHT HAND OPERAND FROM STACK 
+) Bt FROM STACK 


“IF EQL YES 
CHU STK TYPE (RB) , #OPI_K_OPERAND ;TOP ITEM ON STACK OPERAND? 


RAND FROM STACK 
K OPERAND 

s TRIAD STACK OVERFLOW? 
RU YES 


U YE 
IGHT HAND OPERAND 
;PUSH OPERATOR INDEX 


ND OPERAND 
RATOR PARAMETERS 


;PUSH R 


POP SAVED R1 


<o 
n” 


F STACK 
NTAX ERROR STATUS 


c— 


voo=t00 


34 


89 
68 


69 


Exe 


XPRESSION ANALYSIS 


RESSION ANALYSIS 


47 
475 
47 
47 


47 
47 
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15-SEP-1984 AX/VMS Macro v04-00 Page 12 
27SEb= 138% $3: 18: $f YOCL SACIE EXPRESS MAR: 1 , neg 
SK W_TYPE (RB), ,#OPI_K Ore tang [Py ITEM ON STACK OPERAND? 
Rade, ( R9)+ ‘MOVE RIGHT HAND OPERAND TO TRIAD STACK 
s0P 1 K_SOS,STK_W_ TYPE (RBS; jTOP OF STACK START OF STATEMENT? 
#OP1_K_STORE, (R9) TINSERT STORE OPERATOR 
EVALOATE SEVALUATE THE EXPRESSION 


3 at 334 


50 


@ 
~m 
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= EXPRESSION ANALYS 


SEARCH OPERATOR 


on—00-oCc oO 
win—OoN—oOWwProm 


“conn 
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mo,» 


So 
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SIN NIA AAA OA 
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oOo 
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: OUTPUT 
408: 
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15-SEP- 


~SBTTL SEARCH OPERATOR TABLE 


; FIND_OPERATOR = SEARCH OPERATOR TABLE 


; THIS ROUTINE SEARCHES THE OPERATOR TABLE, GIVEN A STRING, TO 
: LOCATE THE OPERATOR PRECEDENCE AND INDEX. 


| INPUTS: 


R1/R2 = DESCRIPTOR OF STRING 


S: 


RO = STATUS 
Ri = OPERATOR PRECEDENCE 
R3 = OPERATOR INDEX 


R4,R5 DESTROYED. 


00 _OPERATOR: 
0 MOVAB 


OPTAB. RO 
ROR 
(R5)+,RO 
80$ 
R5,RO 
R1,(R5)¢ 
40$ 
R1.R3 
(R4)+, (RS)4 
4 $ 

508 
CaS} R1 

> R3 

i) Rab 


IVOPER 


arse SB 88:28:97 HORI MeS Mecca, ys 00 Page 


DCL. SRCJEXPRESS.MAR;1 | 


GET ADDRESS OF OPERATOR TABLE 

;RE sve a ee NEXT OPERATOR ENTRY 
GE FFSET TO NEXT OPERATOR ENTRY 

F EQL END OF TABL 

ALCULATE ty i B o ial ENTRY 

ite NAMES MATCH? 

; COPY 

H 


OPERATOR eae 


os eet ae) WO? 


;CHARACTERS MA 


NEQ NO 
TANY MORE CHARACTERS TO MATCH? 
:GET OPERATOR PRECEDENCE VALUE 
:GET OPERA TOR INDEX VALUE 


REPORT INVALID OPERATOR 


~~ 
“ww 


= EXPRESSION ANALYSIS 15-SEP-1984 246: AX/VMS Macro V04-00 Page 14 
PARSE_OPERAND = BARSE OPERAND TOKEN 46-SEP-1984 33:28:44 LOCL SRCTEXPRESS. MAR: 1 | ve 
ze 19 : .SBTTL PARSE_OPERAND = PARSE OPERAND TOKEN 
zC 9 > PARSE_OPERAND = PARSE OPERAND TOKEN 
7¢ : + THIS ROUTINE IS CALLED TO PARSE AN OPERAND TOKEN AND RETURN 
z¢ 4 : THE OPERAND PARAMETERS DESCRIBING THE OPERAND. 
zc 6 > INPUTS: 
ze g ; R1/R2 = STRING DESCRIPTOR OF OPERAND 
4s 9 : OUTPUTS: 
7¢ : RO = STATUS 
O27¢ 
027¢ 4: THE CALLER'S STACK MAY BE UPDATED IN ORDER TO SAVE 
5 N N NARY VALUES. 
O27¢ 535 INTERMEDIATE STRINGS OR BINARY VALUES 
0 FE 83g Fo 
7¢ 338 PARSE_OPERAND: 
7E 62 9A O27C 539 MOVZBL (R2),-(SP) sSAVE STARTING CHARACTER OF SYMBOL 
 ED7E* 30 0 7F 240 BSBW  DCLSCOMPRESS ‘COMPRESS QUOTED STR 
53 340—COA Be 41 MOVZBL #OPI_K_STRING,R3 TASSUME CHARACTER STRING LITERAL 
8E 2 D1 028 248 CMPL #*a/"/>(SP)+ sSTRING LITERAL? 
4 13 0288 54 BEQL 170% SIF EQL YES 
62 3 91 028A 544 CMPB Os #*A/%/, (R2) [NUMERIC RADIX OPERATOR? 
13 0 8p 545 BEQL 105$ 'BR IF YES-ITS A NUMBER 
62 30 91 028F 346 CMPB 3s #*A/0/,, (R2) [POSSIBLY NUMERIC CONSTANT? 
93 1A 0292 547 BGTRU 90$ SIF GTRU NO 
62 39 91 0294 548 CMPB ss #*A/9/,, (R2) [NUMERIC CONSTANT? 
49 1 0297 549 BGEQU 105$ SIF GEQU YES 
57 DD 0299 550 90$: PUSHL R7 TSAVE ADDRESS OF STACK STORAGE 
0c €1 0298 551 BBC #URK_V_COMMENT,- [SKIP IF NOT IN COMMENT 
03 FO AA 9D 38 WRK @ FLAGS(R16),92$ : MAKE FSVER EXPR EVAL WORK IN COMMENTS 
FDSD' 30 A 5 BSBW DCLSUPCASE SUPCASE THE SYMBOL 
oY) 31 D O2A 334 92$: mOVd RI1.R6 [COPY DESCRIPTOR FOR DCLSLEXIF 
F057" 30 O2A 55 BSBW DCLSSEARCH [SEARCH SYMBOL TABLE FOR VALUE 
03 30 § A 36 BLBS . TIF LBC SEARCH FAILURE 
Fp51° ac 55 BSBW sé SLEXIF [GET VALUE OF LEXICAL FUNCTION 
57 BED AF 38 95$: POPL R SRESTORE ADDRESS OF STACK STORAGE 
46 3 E B 5 BLBC RO. 1108 [BRANCH IF NOT A FUNCTION 
D 8 60 TSTL) «OR [BINARY OR STRING? 
171 B 61 BEQL 968 [BRANCH IF BINARY 
0 8ED B9 64 POPL RO [PICK UP RETURN ADDRESS 
sE STC BC SUBL R1,SP TALLOCATE SPACE FOR STRING ON STACK 
0 DD OcBF 564 PUSHL RO SRESTORE RETURN ADDRESS 
5 1 C1 MOVL R1,R6 [SAVE STRING SIZE 
04 AE ¢ 1 (6 56 MOVC RI, (R2),4(SP) [COPY STRING OPERAND TO STACK 
1 56 (9 «56 MOVL SRESTORE STRING SIZE 
52° (06 Ar ¢ 68 MOVAB 4 §P),R2 [SET ADDRESS OF COPIED STRING 
Be D 6 96$:  POPL [PICK UP RETURN ADDRESS 
7 1 7D 02D : mMOVG = R1,=( SP) [PUSH VALUE DESCRIPTOR ONTO STACK 
5 t DO 02D 7 MOVL  SP.R2 TSET ADDRESS OF ON-STACK OPERAND 
D 02D i PUSHL R SRESTORE RETURN ADDRESS 
53 6 9A OopB 57 MOVZBL #OPI_K_STACK,R3 [SET TYPE OF ITEM 
0 1 0 p 4 1708: ROVE #1,R0 SUCCESS 
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PRESSION ANALYSIS 15-SEP-1984 33:46:42 VAX/ViKS Macro v04-00 Page 15 
E_OPERAND = PARSE OPERAND TOKEN 4-SEP-1984 23:40: DCL.SRCJEXPRESS.MAR; 1 (8) 

E 7 P4 

E 2 ; PARSE NUMERIC OPERAND 

E 8 1058: mova sCOPY DESCRIPTOR 

: 6 MOVZBL pats BADEERADIX(RI1), R1 :SET RADIX FOR CONVERSION 

EA BSBW DEL SCRVASCEI ‘CONVERT TO BINARY CONGWORD 

ED ¢ BNEQ [BRANCH IF CONVERSION ERROR 

EF CLAL “MARK VALUE IS BINARY 

H 4 BRB 96$ SAND STORE IT ON THE STACK 

FS : 108$: STATUS IVCHAR ZERROR CONVERTING NUMBER 

FB 8 110$: STATUS UNDSYM ;SET UNDEFINED SYMBOL STATUS 

0 9 RSB 


K 2 
EXPRES - EXPRESSION ANALYSIS 15 -SEP=1 AX/VMS Macro V04-00 Page 16 
via hts PARSE_OPERAND = PARSE OPERAND TOKEN “SEP-19 1383 $3; 18: $f DCL. SRCJEXPRESS.MAR; 1 . (8) | 
91; 
$3 t EVALUATE THE EXPRESSION WHICH NOW CONSISTS OF TRIADS ORDERED | 
; BY PRECEDENCE, DESCRIBING THE ARGUMENTS AND OPERATORS IN THE 
34 : ORDER THEY ARE TO BE EVALUATED. | 
96 ° | 
0 33 EVALUATE : sEVALUATE EXPRESSION 
59 FE10 c? 3 98 MOVAB =TRIADSTKSIZ=PARSESTKSIZ(R7),.R9 GET STARTING yAboRESS OF TRIAD STACK 
s¢ 59 p 08 599108: §MOVL  R9,AP sADDRESS’ 10 STORE R 
0059 0 0308 690 BSBWStséF SFETCH RIGHT HAND BEN PARAMETERS 
56 9 00 OF 601 MOVL  (R9)+ ‘FETCH OPERATOR INDEX | 
2 6 Di 031 60¢ CMPL OR roPt k_£0S [STRING OPERATOR? | 
A 18 0314 BGEG SIF GEQ YES 
26 $ D1 16 604 CMPL R6, #OPI_K_STORE STORE OPERATOR? 
53 13:-«0319 = 605 BEQL TIF EQL YES | 
06 56 v1 0318 606 CMPL = R6, #OPI1_K_ADD SADD? | 
05 13 O31E 60 BEQL =: 128 :BRANCH IF SO 
08 56 D1 3 608 CMPL RS #OP1_K_SUB :S | 
26 «12 609 BNEQ -*15 <SRANCH IF NOT 
| 
0325 611; 
0325 61g : (4) OR (=) OPERATORS. DECIDE IF STRING OR ARITHMETIC OPERATOR SHOULD BE 
03 3 613 + APPLIED. ASSUME ARITHMETIC UNLESS BOTH SIDES ARE STRINGS 
325 615° 
0009 39 03 5 616 12$:  BSBW  OPERAND :GET RIGHT HAND OPERAND DESCRIPTOR | 
@1 1 8 61 BEQL «15$ SIF BINARY INTEGER ADD 
54 O51 A 618 MOVG = R1, R4 SSAVE RIGHT PAND OPERAND STRING DESCRIPTOR | 
00¢7 30 D 619 BSBWSséRE TCH [FETCH LEFT HAND OPERAND PARAM 
OOCE 9 620 BSBW  OPERAND [GET LEFT HAND OPERAND DESCRI 
9D i 621 BEQL 148, [IF BINARY, ATTEMPT ARITHMETIC OPERATION 
52 51 7 0 6 é MOVG SAVE LEFT HAND OPERAND DESCR 
O44D'CF46 16 B 6 JSB O  gTRINGDISP-OP! _K_ADDCR6) ;PERFORM STRING OPERATIO 
D 624 ; (RESULTANT STRING PLACED ONTO STACK) 
6C 54 7p 30 : 5 mova RA CAP) [STORE RESULTANT STRING DESCRIPTOR 
59 14 cé 0 43 6 ‘ 146$:  SUBL  #844+8,R9 ;BACKUP TRIAD STACK | 
OOAF 45 628 BSBW 3S séFETCH [RE-FETCH LEFT HAND OPERAND 
56 89 00 48 6 ; MOVL  (R9)+,R6 SRE-FETCH OPERATOR INDEX | 
48 631; 
4 2 4 : ARITHMETIC RELATIONAL OR BOOLEAN OPERATOR 
48 * 
OOCE 30 0348 g 5 15$:  BSBW NUMERIC ;CONVERT RIGHT HAND OPERAND TO NUMERIC 
54 CSS 20 4t é 6 MOVL  RO,R4 [SAVE RIGHT HAND OPERAND VALU 
OOA 3 6 BSBu Ss«éR TCH :FETCH LEFT HAND OPERAND PARAMETERS 
02 «56 «ODI 4 638 CMPL  R6,#0P1_K_NOT [BOOLEAN NOT OPERATOR? | 
44 13 0357 639 BEQL TIF EQL YES 
OE 56 D1 0359 640 CMPL 86, #OP1_K_NEG S INTEGER NEGATION? 
pa 3¢ 641 BEQL TIF EQL YES 
10 56 01 F 64g CMPL R6 #0P1_K_POS S INTEGER NOO 
A 6 64 BEQL §«=s«308 TIF EQL YES 
0 3 63 644 BSBu MERIC [CONVERT LEFT HAND OPERAND TO NUMERIC 
52 D 66 645 MOVL R Re [SAVE LEFT HAND OPERAND VALUE 
4 : 6 646 CMPL =e R2-R [COMPARE RIGHT AND LEFT HAND OPERANDS 
F 11 O036C 64 BRB 30$ ; 


L 


EXPR - EXPRESSION ANALYS! SEP-1984 AX/VMS Macro V04-00 Page 17 
V04G= PARSE OPERAND - tte OPERAND TOKEN Fat et} 7 $3: 28: $f Ye SRCJEXPRESS.MAR; 1 ve 
4 
381 é g8 40$: BRB 41$ sCONTINUE TO STORE RESULT CODE 
f ° 1 3 STRING RELATIONAL OPERATOR 
70 6 , 
009¢ 60630 «037 6 4 208 BSBW STRING ;CONVERT RIGHT HAND OPERAND TO STRING 
F486 CA DD 037 5 PUSHL WRK _L_EXPANDPTR(R10) TASS URE RESULT IS IN EXPANSION BUFFER 
F486 CA : D1 7 6 Q CMPL Re ,0R QRR_L_EXPANDPTR(R10) 315 RESULT IN EXPANSION BUFFER 
if 7c 65 BNEG § F NOT, THEN SKIP 
F486 cA 1 43 638 ADDL R1,WRK_L_EXPANDPTR(R10) :MOVE EXPANSION POINTER PAST STRING 
a. p 63 25$ mOvO 1/R4 SSAVE RIGHT HAND OPERAND STRING DESCRIPTOR 
0 § $ 60 BSBWStséNE' CH SFETCH LEFT HAND OPERAND PARAMETERS 
00 0 661 BSBW STRING SCONVERT LEFT HAND OPERAND TO STRING 
52 1 C 66 MOVa = R1, R2 3SAVE LEFT HAND OPERAND DESCRIPTOR 
6 % ¢ F 66 SUBL § #OP1 K_EQS-OPI_K_EQ,R6 :NORMALIZE OPERATOR INDEX 
F486 gh BED 38 664 POPL wrx_C EXPANDPTR (R105 SRESTORE EXPANS ON BUFFER POINTER 
65 54 00 63 52 2D 0397 665 CMPCS R2,TR3),@ (RS) 7COMPARE RIGHT AND LEFT HAND OPERANDS 
04C2°CF46 16 039D 666 30S: JSB OSsiepateutre 4' SEXECUTE OPERATOR SPECIFIC ROUTINE 
6C 54 00 Ag 66 MOVL  R4, (AP) [STORE OPERATION RESULT 
04 AC ps AS 66 CLRL 30s & CAP) SINDICATE RESULT IS BINARY 
FFSD «631 O3AB) 6 BRW 10$ ; 
O3aB op 
O38 67¢ ; STORE RESULT OPERATOR 
54 19 0 AB «C674 «418: ~=—s BSBB OPERAND :GET DESCRIPTOR OF ah GHT-HAND OPERAND 
30 «1 AD €75 BEQL [BRANCH IF BINARY RESULT 
50 £492 CA GE O3AF 676 MOVAB WRK_G_BUFFER(R10),RO GET ADDRESS OF EXPANS TON BUFFER 
50 00000400 8F C 4 67 ADDL #wRR - CMDBUF S12 R09 ND OF BUFFER 
50 F486 CA C 678 SUBL WRK re XPANDPTR(R10) ,RO CALCULATE HOW MUCH IS LEFT 
51 50 01 3¢ 67 CMPL =O WILL RESULT FIT? 
09 14 03¢ 680 BGTR :YES, THEN STORE 11 AWAY 
C5 681 STATUS BUF OVF [SET OVERFLOW STATUS 
18 «11 CC 68¢ BRB EX it EXIT WITH ERROR 
56 51 DO O3CE 683 45$:  MOVL RILR AVE LENGTH OF STRING 
F486 DA «62 «2651 )2=— 28 «(0301 Ss 684 MOVC = «RV eo, @WRK_L _EXPANDPTRIRIO) sCOPY IT TO THE EXPANS 10N BUFFER 
51 56 00 0307 689 MOVL R6.RI sRETURN LENGTH OF RESULT STRING 
52 F486 CA DO O3DA 6 : MOVL - WRK_L_EXPANDPTR(R10) ,R2 AND ADDRESS OF RESULT STRIN 
DF 687 50S: STATUS NORMAL COMPLETION STATUS 
SE OC A? 9E O3E6 688 EXIT: MOVAB LOCAL 12(R7),SP ‘DE ALLOCATE SCRATCH STACKS 
13F8 ar BA O3EA 689 POPR M<R3,R4,R5.R6,R7,RB,R9,AP> RESTORE REGISTERS 
05 : E9 O3EE 690 BLBC nd, 908° [BRANCH IF ERROR EXIT 
F4BA CA 5 bo Fi 691 MOVL R3,WRK_L_MARKPTR(R10) ;LEAVE MARKPTR SET TO START OF EXPR 
0 F6 692 908: RSB : 


mM 2 | 
EXPR - EXPRESSION ANALYSIS 15=SEP=1 24 AX/VMS v04=00 Page 18. 
vee ti FETCH NEXT OPERAND FROM TRIAD STACK 4-SEP=1 138¢ $3: 28: $f YOtL SR SR cj? PRES $.MAR; 1 . 1B) | 
F 9 .SBTTL FETCH NEXT OPERAND FROM TRIAD STACK | 
F 636 ; FETCH = FETCH NEXT OPERAND FROM TRIAD STACK | 
1a 
50 89 3 F7 639 FETCH: MOVZWL (R9)+,RO :GET TYPE OF OPERAND 
51 89 3¢ O3FA 700 MOVZWL (R9)+.R1 *GET LENGTH OF OPERAND 
52 89 «4200 O3FD = «6701 MOVL (R9)+.R2 [GET ADDRESS OF OPERAND 
05 0400 702 RSB : 


N 2 
EXPRES = EXPRESSION ANALYSIS 15=SEP=1984 23:46: AX/VMS Macro v04-00 
Fn 00 GET OPERAND DESCRIPTOR rates 7 33:28:49 LOCL SRCIEXPRESS MARS 1 
4 ? 4 .SBTTL GET OPERAND DESCRIPTOR 
4 | f $ : OPERAND = GET OPERAND DESCRIPTOR FROM OPERAND PARAMETERS 
4 f 8 : 2 BIT SET ON R2 (ADDRESS), Z=1 INDICATES BINARY, Z=0 INDICATES STRING 
401 710 OPERAND: 
36 01 «40401~=—717 CMPL  #OPI_K_STACK,RO :STACK OPERAND? 
06 12 0404 ile BNEQ 108 ‘BRANCH IF NO 
62 7D 0406 71 MOVQ = (R2),R1 [GET OPERAND DESCRIPTOR 
34 9A 0409 714 MOVZBL #OPI_K_STRING,RO ‘MARK OPERAND NOW A STRING 
52 D5 040¢ £13 10$: STL R2 [SET CONDITION CODES ON TYPE 
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EXPRESS - EXPRESSION ANALYSIS 15=SEP=1 984 33: 46: 42 VAX/vits Macro v04-00 
v04=000 CONVERT STRING PARAMETERS TO STRING OPER 4=SEP-1984 :31 CDCL.SRCJEXPRESS.MAR; 1 
4 F 718 .SBTTL CONVERT STRING PARAMETERS TO STRING OPERAND 
r : 9: : STRING = CONVERT OPERAND TO CHARACTER STRING 
40F 7 ; : IF THE OPERAND IS EVALUATED THEN RETURN ITS DESCRIPTOR IF ITS 
4OF 723 : A STRING AND IF NUMERIC, ACONVE TO ASCII DECIMAL. 
GOF 724 : IF THE OPERAND IS AN UNEVA TUAYED. CHAR ACTER OR NUMERIC STRING LITERAL, 
2 F 725 : SIMPLY RETURN WITH THE DESCRIPTOR. 
4OF 726 ; 
O40F 727 
40F 728 STRING :STRING OPERAND 
FO 10 O40F 729 BSBB  OPERAND GET OPERAND DESCR IPTOR 
08 12 0411 730 BNEQ 10$ i IF STRIN G, EXIT WITH DESCRIPTOR 
5 bp 0413 731 PUSHL R3 SSAVE R 
FBEB’ 30 0415 13 BSBW DCLSCVT_STRING ‘CONVERT TO STRING 
53 BEDO 0418 73 POPL R3 SRESTORE R3 
05 0418 734 10$ RSB ; 


rave 28, 


EXPRESS EXPRESSION 
v04-000 CONVE PERAND PARAMETERS TO NUMERIC VA 4=SEP=1984 
~SBTTL CONVERT OPERAND PARAMETERS TO NUMERIC VALUE 


; NUMERIC = CONVERT OPERAND PARAMETERS TO NUMERIC VALUE 


DCL.SRCJEXPRESS.MAR; 1 


NUMERIC: NUMERIC OPERAND 
; IF THE OPERAND IS ALREADY BINARY FROM A PREVIOUS EVALUATION, RETURN IT 


ESS 
TO 
41C 
41C $ 
41C 738 
41C 739 
41C 740 
41C 741 
41¢ 146 
616 76 
1 7645 
3 19 41C 745 BSBB QPERAND :GET OPERAND DESCRIPTOR 
1A ip 246 BEQL ‘IF BINARY, RETURN WITH VALUE IN R1 
? 8 o8 3; CONVERT A NUMERIC STRING TO A BINARY LONGWORD 
7E OOAE cB 9A 0420 750 mOVZBL PRC B DEFRADIX(R11) ,- -(SP) ;SAVE DEFAULT RADIX 
50 34 D1 0425 751 CMP OPT R_S »RO i18 THIS A CHARACTER STRING LITERAL? 
05 13 0428 138 Eat *1F SO, USE DEFAULT RADI 
OOAE CB O01) ss As«2A 75 MOVZBL bP K DEC. «PRC 8. DEFRADIX(RI1) -OTHERWISE, USE DECIMAL RADIX 
FC65 «030 «O40F «= 754108: = BSBWSC«OCLL $tvT’B CONVERT STRING TO BINA 
OOAE CB OBE OCOF6 OG é 755 CVILB (SP) + PRE. os AREFRADIX(RINS *RESTORE DEFAULT RADIX. 
0650 £9 0437 756 BLBC  =—_—«aRO, 8 $ sBRANCH IF ERROR DETECTED 
50 51 DO 043A 757 30S: MOVL  R1.RO 'SET VALUE 
S bee cea : 
FBBF' 30 O43— 760 85$ BSBW DCLSMARK yMARK START OF ERROR SEGMENT 
50 62 90 0441 761 MOVB = (R2) [PICK UP FIRST BYTE OF STRING 
FBB9’' 30 0444 76 BSBW  DCLSPUTCHAR [WRITE CHARACTER INTO BUFFER 
0447 76 :SO THAT ERROR R PO TING CAN 
0447 764 [DISPLAY THE CHARACTER 
BE DS 0447 765 TSTL (SP)+ [CLEAN STACK OF PREVIOUS CALLER 
0449 766 STATUS IVCHAR INVALID CHARACTER 
FF93. «31 «0450 767 BRW EXIT [RETURN TO CALLER'S CALLER 
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«SBTTL DISPATCH STRING OPERATION FUNCTION 


: DISPATCH FUNCTIONS WHICH RESULT IN STRINGS 
STRINGDISP: 
BRB CONCAT CONCATENATION 


s STRING 
BRB REDUCE :STRING REDUCTION 
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XPR = EXPRESSION ANALYSIS i oe P=-1984 AX/VMS Macro v04-00 Page 23 
ve ti STRING CONCATENATION OPERATOR Seen 18be $8:2894 FOR/VES Sacre vOe=O0 oe f 
4 ? aa ~SBTTL STRING CONCATENATION OPERATOR 
457 8 + THIS ROUTINE PROCESSES THE STRING CONCATENATION OPERATOR AND STORES 
‘ f f 9 ; THE RESULTANT STRING ON THE CALLER'S STACK. 
4 , f ; : INPUTS: 
457 784: R2/R3 = STRING DESCRIPTOR OF LEFT-HAND SIDE 
432 , 5; R4/R5 = STRING DESCRIPTOR OF RIGHT-HAND SIDE 
437 , 5 : OUTPUTS: 
37 f : : R4/RS = STRING DESCRIPTOR OF RESULTANT STRING 
i? 44 : RO-R3,R6 DESTROYED. 
DO 0457 793 CONCAT: POPL R 7POP CALLER'S RETURN ADDRESS 
50 54 38 an: rH 794 ADDL3 Rp. .RO [COMPUTE SIZE OF RESULTANT STRING 
ooo 8 80 «Oe bcel 88 SROBEW 90/5128,-128(SP) ALLOCATE, SPACE ON CALLER'S STACK 
a oe OA 12 04668 79 BNEQ oo - SCONTINUE IF SUCCESSFUL 
46A 798 STATUS BUFOVE [SET STATUS 
FFT 31 0471 +799 EXIT TEXIT WITH STATUS 
50 DD 0474 800 10$:  PUSHL R [SAVE SIZE OF RESULTANT STRING 
54 «7D «(047 01 mova RS .o(SP) [SAVE DESCRIPTOR OF RIGHT-SIDE 
OC AE 63 52 38 7 0 MOVE =—R2, (R3),12¢SP) [COPY FIRST STRING ONTO STA 
— 7D O47E 80 MOVa = (SP) +, RE SRESTORE DESCRIPTOR OF night =s10¢ 
63 «65 gf 28 0481 804 MOVC = R&, (R55), (RB) [APPEND SECOND STRING TO FI 
54 BEDO 0485 805 POPL 4 TRESTORE SIZE OF RESULTANT STRING 
55 SE 00 Oc8 806 MOVL SP, RS [SET ADDRESS OF RESULTANT STRING 
66 «17 «06 80 JMP tre) [RETURN 
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«SBTTL STRING REDUCTION OPERATOR 


; THIS ROUTINE PROCESSES THE STRING REDUCTION OPERATOR (-) AND STORES 
; THE RESULTANT STRING ON THE CALLER'S STACK. 


4 
6) 


on 
Cc 
Oo 
“4 


INPUTS: 
R2/R3 = STRING DESCRIPTOR OF LEFT-HAND SIDE 
R4/RS = STRING DESCRIPTOR OF RIGHT=-HAND SIDE 
OUTPUTS: 


R4/RS = STRING DESCRIPTOR OF RESULTANT STRING 
RO-R3,R6 DESTROYED. 


OOCCGCGOVOOOOVOOOOSOOOOOOCOO oD 
Te + Se Oe Ge Oe Se Oe Se Se Be Se Se 


Fk ek ek eked, dek- Deke de le Deh ee deb de tee 


09.09.00 09 09 09 C0 0 GD 09.00 G0 C9 00 CD G9 CO CD CD CD. CD. C9 GD. G9.G0.G9 00.0009 0000 0000000000 
EE FE WWWWIWIWIWINIWIWUINIPIPIRIPIPIPONINND 2 2 


oc 8B EDUCE: PUSHR ween? R3> :SAVE LEFT SIDE OPERAND 
63 52 65 54 39 MATCHC R4,(R55,R2,(R3) SLOCATE SUBSTRING WITHIN STRING 
28 12 BNEQ 508 SBRANCH IF NOT FOUND IN LEFT SIDE 
50 52 7D MOVa = R2, RO TSAVE DESCRIPTOR OF PIECE AFTER MATCH 
004c BF BA POPR #*M<R2,R3,R6> [GET LEFT SIDE AND RETURN ADDRESS 
54 52 54 C3 SUBL3 _-R4, R2, RS [COMPUTE SIZE OF RESULTANT STRING 
52 540CiCSsCéB SUBL3 RO.R4.R2 [COMPUTE SIZE OF PIECE BEFORE MATCH 
SE 54 SCC s(GAS SUBL. R4.SP SALLOCATE SPACE ON CALLER'S STACK 
13 BB 048 PUSHR #WERO R1,R4> SSAVE REGISTERS 
OC AE 63 52 é GAA MOVC = R2, (R35, 10 SP) [COPY PIECE BEFORE MATCH INTO RESULT 
50 Hi D O4AF MOVa = (SP) +, RO SGET DESCRIPTOR OF PIECE AFTER MATCH 
63 61 50 28 0482 MOVE = RO, (RI), (R3) SAPPEND PIECE AFTER MATCH INTO RESULT 
34 BEDO 0486 POPL R4 SRESTORE SIZE OF RESULTANT STRING 
55 SE D0 489 MOVL SP, RS [SET ADDRESS OF RESULTANT STRING 
66 CO«W BC JMP (R6) : RETURN 
O4BE : SUBSTRING NOT FOUND IN STRING = RETURN MAIN STRING INTACT 
54 BE 7D O4BE S0$: mova  (SP)+,R4 ;RETURN DESCRIPTOR OF LEFT SIDE 
05 04C1 844 RSB 
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Es 
CH AL OPERATOR 46-SEP-1984 DCL. SRCJEXPRESS.MAR; 1 
at B46 .SBTTL DISPATCH BINARY/LOGICAL OPERATOR 
4c $f ; DISPATCH BINARY/LOGICAL OPERATOR FUNCTION 
| ac Hi ; INPUTS: 
aCe 8 ; : R2/R3 = LEFT HAND OPERAND 
4c + R4/R5 = RIGHT HAND OPERAND 
ac B35 : OUTPUTS: 
4C 7 : R4/RS = RESULT VALUE 
tes BeS | 
4C2 860 DISPATCH: 
1611 4c B61 BRB AND ZBOOLEAN AND 
11 04C4 B64 BRB NOT [BOOLEAN NOT 
11 4cg B6 BRB OR [BOOLEAN OR 
7 11 06C8 864 BRB ADD S INTEGER ADD 
9 11 O4CA 865 BRB SUB TINTEGER SUBTRACT 
C 11 O06CC 866 BRB MUL SINTEGER MULTIPLY 
— 11 O4CE 867 BRB DIV S INTEGER DIVIDE 
41 11 0400 «868 BRB NEG S INTEGER NEGATION 
46311 «04D 869 BRB POS INTEGER 
42. 11 0404 870 BRB EQL SEQUAL 
44 11 0406 871 BRB GEG [GREATER OR EQUAL 
46 11° 04D 78 BRB GTR GREATER 
48 11 O4DA 87 BRB LEQ TLESS OR EQUAL 
4A 11 O4DC 874 BRB LSS LESS 
4DE 875; BRB NEQ [NOT EQUAL 
a 
DE 78 > NOT EQUAL 
ape Bhp ? 
4D 12 O4DE 881 NEQ:  BNEQ  SETRUE SIF NEQ SETRUE RESULT 
48 11 O460 & ; BRB SETFALSE 
bce BBG; 
rt3 B85 : BOOLEAN AND 
rt; 5 § . 
52 52 D2 0462 888 AND:  MCOML R2 +R? :COMPLEMENT LEFT HAND OPERAND 
ee A 0465 889 BICL R2.R4 [FORM BOOLEAN AND FUNCTION 
5 0468 890 RSB : 
23 + 
9 398 t BOOLEAN NOT 
rt} B94; 
54 OSG b2 £9 896 NOT:  MCOML R4,R4 ;FORM BOOLEAN NOT FUNCTION 
0 EC 89 RSB : 
tED 898 ; 
4ED 900 : BOOLEAN OR 
4ED 901 : 
4ED 902 
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berb00 DISPATCH BINARY/LOGICAL OPERATOR ~Sepr 188s S8ic8:8F YORCMES Mecca yOse0o | = Page 96, 
| 
54 52 bE 03 OR: BISL  R2,R4 FORM AN OR FUNCT 
| 4 arp g Bis 2 ORM BOOLEAN OR FUNCTION 
4F1 g 
it 2 ‘ ; INTEGER ADD 
Py 
4F1 9) 
54 52 co 4F1 910 ADD: ADOL R2,R4 ;FORM ARITHMET 
8 be if ADD 0 ITHMETIC SUM 
4F 318 Py 
| 4F gi ; INTEGER SUBTRACT 
a 2s CG tr 313 an SUBL3 R42, R4 FORM ARITHMETIC DIFFERENCE 
05 aro 318 "  RSB <i : 
4FA 920; 
re 2 1 ; INTEGER MULTIPLY 
Q4FA 9 § , 
54 52) «Ch OO4FA) «0924 MUL: = MULL_—séRR2, RG sFORM ARITHMETIC PRODUCT 
05 O4FD 3 5 RSB : 
4FE 9 Q 3 
OcrE 3 8 ; INTEGER DIVIDE 
4FE 930° 
54 05 $66 3 1 DIV: Ist Rs :DIVIDE BY ZERO ATTEMPT? 
ne es 30 3 5 SETBIT aS Re SeoncE aeear THE HIGHEST NEGATIVE NUMBER 
88 19 0308 935 BLSS ‘108 YES 
54 54 v2 508 3 6 a MCOML R4 RG SHAKE. THE LARGEST POSITIVE NUMBER 
54 52) (SKC? $3 938 20$:  DIVL3 R4,R2,R4 [FORM ARITHMETIC QUOTIENT 
05 0512 939 RSB : 
ae 
ba! oe6 : 
31 943 : INTEGER NEGATION 
m6 1 2 iH re ie MNEGL  R4,R4 NEGATE OPERAND 
65 316 94 oe | : : 
517 348 : 
317 930 ; INTEGER NOOP 
517 93¢ : 
05 317 953 POS:  RSB :NOOP 
1 5 : 
HBB: coun 
3} 336 ' 
13. 13 0518 959 GOL:  BEQL  SETRUE SIF EQL SETRUE RESULT 
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oe 
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nw 
We 
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Se eed beheaded bab bebh tbh db db dh db db dh dab db db db db dh db dab db db db dh dh db dh dh dh hh hh dh A ee 
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ON ANALYS 
INARY/LOG 

ae BRB SETFALSE 
$68 ; GREATER OR EQUAL 

65° 
386 GEQ: BGEQ  SETRUE s1F GEQ SETRUE RESULT 
ses BRB SETFALSE 
969 ; 
4 3 GREATER 

re . 
973 GTR: BGTR  SETRUE y1F GTR SETRUE RESULT 
974 BRB SETFALSE 
975 
378 3 
977 ; LESS OF EQUAL 
a 
980 LEQ: BLEQ  SETRUE z1F LEQ SETRUE RESULT 
3 1 BRB SETFALSE 
983 ; 
? 4 ; LESS 
9 y 
$87 LSS: BLSS SETRUE z1F LSS SETRUE RESULT 
tt : 
990 ; RETURN FALSE RESULT 
93¢ : 
9935 SETFALSE: 
99% CLRL = RG :SET RESULT FALSE 
996 
997 ; 
998 : RETURN TRUE RESULT 
+4 
091 SETRUE: MOVL #1,R4 sSET RESULT TRUE 


004 .END 
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ADIX 


T STRING 


BUF OVF 
DCLSBACKUPMOVE 
DCLSBINEXPR 
DCLSCNVASCBIN 
DCLSCOMPRESS 
DCLSCVT_BINARY 

PR 
DCLSEXPRESS 
LIBSSCOPY_DxXDx 
LOCALSIZ 


F IND_OPERATOR 


EVALUATE 
EXIT 


a 

~ 

re] 

© 

~ 

~ 

8 4 

oa 

> 82 
y aa 


EXPRESS 
CLIS 
OCLSCV 
DCLSEX 
FALSE 
FETCH 


DISPATCH 


DIV 
EQL 
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DCL. SRCJEXPRESS MAR; 1 


PRC_W_ASTRETN c8 

PREB-Iner eR ob PRE-UCAST STATUS is 
PRE-B"OUTELAG 2 PRC-W-ATTMBX A 
PRE-B-PROMPTL £5 PRC“W-FLAGS 68 
PRE-E“LENCTHEe g 4 PRC-W- INPCHAN 64 
PRC_C_LENGTH 8 33 PRC-W-ONLEVEL 6A 
PRE-CIPROMPT 0 F4 PRC-W-OUTIFI 8 114 
PRETR“DEC = 00000001 PRC“W-OUTISI 8 116 
PRC_K_DEC 0000 gi PRC-W-OUTMBXCHN 3 OCA 
PRC_K_LENGTH 000004 PRC~W-OUTMBXREF OcE 
PRE-EEXMDE atta PRC" W-OUTMBXS1Z 0 ocr 
PRETCTEXTARG 0000094 PRC"W-PMPTCTRL 9 9 1 
PRE“E TEXT atti PRC“W-WAITIOSB $6 
PRE“LTEXTCDD 0000003 REDOCE 5000880 R 02 
PRE-t-EATPRR 9000098 RESULTS 9900904 
PRET TOFLNE atta SETFALSE $0003 ‘ R 03 
PRC-L-IMGACTSTS So0bos¢ SF Kk LENGTH 0000008 
PRETL TENDED TH 0000005C STK-L_ADDR 9000008 
pret lho SouU08t SHeW-etie sstuage 
PRC“LTINDOUTRAB - 0018 STK-W-TYPE 000000 
PRE“LTINPRABY §0000008 STRING S004 OF R 02 
PRETETLASTKEY dgon9dec STRINGDISP 9000433 R Oe 
part -herfie 5090088 TRIADSTKSIZ = S0p et . “ 
pee“ outor ba b008¢ TRUSYA S00S008A R 02 
PREC “OUTRA 80 WRK_B_CMDOPT FFFFFFC3 
PRE“L~OUTRAB ‘ WRK~B-MAXPARM FFFFFFDO 
PRETCTPPFL Tet 70 WRK-B-MINPARM FFFFFFD1 
PROTEC CRECALEP i” WRK-B-PARMCNT FFFFFFCE 
PRETLORESTART © WRK-B-PARMSU: FFFFFFCE 
PRETLTSAVAP 5 WRK-B-RECALLCNT FFFFFFCS 
PRE“t SAVER 4 WRK-B- VALLE FFFFFFC4 
PRE“L SEVER WRK-B-VERBTYP erent ce 
PRETL SPUN 0 WRK~C~CMDBUFS1Z = 000004 

“t-3 AG WRK-C"LENGTH FFFFF4 $ 
PRETE“STACKDT DAO WRK-G BUFFER FFFFFG 
PRETLTSTATUS. 054 WRK~G" INPBUF FFFFF896 
PRETtnSTS WRK-G_RESULT FFFFFIB6 

“t-3 ty 8 WRK"K"LENGTH FFFFF486 
PROWL SYR ; WRK-L-CHARPTR peree eee 

f-t-Fh % WRK-L“DISALLOW FFFFFFE 
PRC“E TRAY 1 WRK-L-ERRORRTN FFFFFOA 
PRE-OTALLOCRE 2 WRK~L-EXPANDPTR FFFFFG8 
PROTO” COMMAND” E WRK"L- IMAGE preeere 
PRE“ O-FLUSHT WRK" L-MARKPTR FFFFEGSA 
PROWO"GLOBAL 3 WRK"L-PAROUT FFFFFFD 
PRETO TA D WRK-L-PMPTADDR FFFFEOA 
PRCT OTLEYER WRK~L-PROMPTRIN FFFFFOA 
PRETOTCABEC. WRK“LPROPTR FFFFFFC6 
PRE“OnTOrA ; WRK"L“QUABLK FREFFFCA 
PREvan Saver WRKL-READRIN FFFFFOAA 
eRe TOUYVI” ie WRK“L-RECALLPTR FEFFFFEA 
PRETUTAST 108 C6 WRK-LRSLEND FFFFFFB6 
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Symbol table Pate s 1 33:28:49 LOCL SRCTEXPRESS MAR: 1 et df, 
WRK_L_RSLNXT FFFFFFBA 
WRK"L"SAVAP FFFFFFFS 
WRK-L “SAVE P FFFFFFEC 
WRK-L~SAVSP FFFFFFFG 
WRK-L"SIGNALRTN FFEFEEDG 
WRK-L“SPECRTN FFFFFOB 
WRK_L_TAB_VEC FFFFFFDE 
wach «bono 
WRK"V~ COMMENT = $6000 
WRK"W"FLAGS FFFFFFF 
WRK-W"FLAGS2 FFFFFFF 
WRK"W" IMGCHAN FFFEEFEE 
WRK-W"PMPTLEN FFPErS E 
_$8_ = 0000000 

moc eae Se ew oo + 

: Psect synopsis ! 

¢-woeer nae eaa eee eae Sa 
PSECT name Allocation PSECT No. Attributes 
» 8 « 00000000 < -) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC ¢ ) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DCLSZCODE 00000531 (¢ 1329.) 2¢ 2.) NOPIC USR CON’ REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

pee m arom ee meme ee wseeeecanae 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 1 00:00.04 0:00:01.81 
Command processing 1 ; 0:00:09. 74 8 8318-83 
Pass 1 238 3: 0:0 § 00:00:70.9 
Ty pare oh SS RRBESEE 8888 
Symbol table output 30 00:00: 719 —-00:00:00.85 
Psect synopsis output 1 0:00:00.0 0:00: Be 
Cross-reference output + 00 0 BB 0 
Assembler run totals 57 0:00:13.1 0:00:55.84 


The working set Limit was 1200 pages. 

44122 bytes (87 pages) of virtual memory were used to buffer the intermediate cod 
There were 40 pages of symbol table space allocated to hold 509 non-local and 146 
1 source Lines were read in Pass 1, produc ing 20 object records in Pass 2. 

29 pages of virtual memory were used to define 16 ma 


e. 
local symbols. 


cros. 
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VAX=11 Macro Run Statistics 4=SEP=1984 23:40:3 DCL.SRCJEXPRESS.MAR; 1 (17) | 


bmw mena wn eee eee omen ewe meen} 


! Macro Library statistics ! 


ee ee a 


Macro Library name Macros defined 


“B93 8buase: sp SYSt 18) Tet ae 0 
J30CL ALB: i 
S5EDUA tats pe 
EESTI rE Sys ibis STARLET.MLB;2 


Terie (all libraries) 

513 GETS were required to define 9 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=LIS$:EXPRESS/OBJ=OBJ$:EXPRESS MSRC$:EXPRESS/UPDATE=(ENHS: EXPRESS) +EXECMLS$/LIB+L1B$:DCL/LIB+SYSS$SLIBRARY : SYSBLDMLB/LIB 
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